## EXERCICIOS - AULA 1 - Introduo ao R
# Camila Galheigo Coelho


## BASTA MUDAR O DIRETORIO?
#Questao 1: Verifiquei qual o diretorio de trabalho com o comando: 

getwd()  #me retornou: "C:/Users/Camila/Documents"

#Utilizei o seguinte comando para selecionar o diretorio de trabalho desejado:

setwd("C:/Users/Camila/Documents/PESQUISA/3_DOUTORADO/Disciplinas/Linguagem R")

# em seguida confirmei que o diretorio correto havia sido selecionado, repetindo o comando:
getwd() # confirmado!


#Questao 2: No sei bem se entendi o "restituir", mas os comando abaixo me permitiram verificar, respectivamente, os objetos e arquivos presentes no meu workspace.
ls()
dir()  # tendo verificado a presena dos objetos e dos arquivos, em seguida, salvei o meu workspace com o seguinte comando:
save.image()

## UM COMANDO PERIGOSO
#Questao 1: Para apagar todos os objetos do workspace:

rm(lista=ls)
ls() #para verificar que foi removido

#Questao 2: 
#Evita-se a perda definitiva dos objetos mantendo-se uma copia de todos os comandos executados, juntamente com uma descricao dos mesmos, em um script salvo a parte.
 

## REMOCAO COM CRITERIO

#Questao 1: Salvei o arquivo no diretorio e em seguida carreguei o arquivo no workspace com o seguinte comando:

load ("bichos.rdata")
dir()  # para visualizar se o arquivo consta do workspace 
save.image()

#Questao 2: 

?rm()   #para remover apenas alguns arquivos podemos listar os mesmos na funcao rm()
ls()   #ver objetos no workspace
temp1<-c(1,2)
temp2<-c(1,3)
temp3<-c(1,4)
ls()  
[1] "anfibios"  "aves"      "mamiferos" "temp1"     "temp2"     "temp3"    
rm(temp1, temp2)
ls()
[1] "anfibios"  "aves"      "mamiferos" "temp3"    

   #adicionei temp1 e temp2 novamente para retir-los com o comando para remover a categoria "temp" assim:
temp1<-c(1,2)
temp2<-c(1,3)
ls()
[1] "anfibios"  "aves"      "mamiferos" "temp1"     "temp2"     "temp3"    
rm(list=ls(pattern="temp"))
ls()
[1] "anfibios"  "aves"      "mamiferos"     #removidos!!


## CLASSES DE OBJETOS
#Questao 1: Para descubrir o que cada um contem:

letters  #retorna o alfabeto em letras minsculas
LETTERS  #retorna o alfabeto em letras maisculas

#Questao 2: Para descubrir a classe de cada um:

classe(letters) #reposta "Character"
classe(LETTERS) #reposta "Character"

#Questao 3: Para transformar em um objeto de classe em fator:

letters<-as.factor(letters)
is.factor(letters)          #resposta: TRUE

LETTERS <-as.factor(LETTERS)
is.factor(LETTERS)         #reposta: TRUE


## OBJETOS DE DATA
#Questao 1: 

hoje<-Sys.Date()
hoje            # resposta "2011-03-24"
classe(hoje)    #resposta "Date"

#Questao 2:

copa.70<-"1970/07/21" 
class(copa.70)     #resposta Character

copa.70<-as.Date(copa.70)
classe(copa.70)    #resposta "Date"

hoje-copa.70     #resposta: Time difference of 14476 days


#Questao 3: Daqui 43 dias sera:

hoje + 43 # resposta: "2011-05-06"
